Top 10k strings from Macro for Construction and Animation (1983)(Pinehurst Data Studios).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
8 y(p),x(p);: 3 q(n)=q(n)+ 2 y=y+(((i$="6")+(i$="t")+(i$="i")) 2 x=x+(((i$="8")+(i$="i")+(i$="u")) 2 n(n)=lz-48 2 cs=(s(n)-10 2 c(n)=lz-48 2 c(n);r(n,4 2 ad=adr-100 2 )-(((i$="7")+(i$="u")+(i$="y")) 2 )-(((i$="5")+(i$="t")+(i$="y")) 2 )*(s(n)>10 1 yd)*xd+(yd<xd)*yd)/8 1 y(p),x(p);" "; 1 y(p),x(p);" 1 y(p),x(p)+2 1 y(p),x(p)+1 1 x(p)=x(p)-2 1 x(p)=x(p)+2 1 s(n)=s(n)+cs+10 1 s(n)=95.01 1 s(n)=90.01 1 q=q-q(n)*(s(n)=3 1 q(n)=q(n)- 1 q(n)=q(n)+q-qa: 1 q(n)=q(n)+20 1 pp=(q(n)-( 1 p(n)=p(n)+(pb-pa): 1 p(n)=(i$="O"): 1 p(n),c(n);: 1 n(n)=(lz=111 1 mca J 1 mca 1 lra=lrb+ln+10 1 leg=sleg+104 1 lbl=leg-lbh*256 1 i=i+(lz=117 1 i=i+(lz=112 1 i=i+(lz=110 1 i=i+(lz=108 1 i=i+(lz=105 1 i=i+(lz<58 1 i=i+(lz<56 1 i=i+(lz<54 1 dia)+dia*4 1 cc=ct+cb*8 1 c(n)=c(n)-( 1 c(n)=c(n)+( 1 c(n)=c(n)*9 1 c(n)=(ci-48 1 c(n);r(n,2 1 c()=c(n)-( 1 ad+j,ph+38 1 PINEHURST DATA STUDIOSpresentMACRO for CONSTRUCTION& ANIMATION* * * * * * *APPROACHING PLANET CALLED EARTHHello folks.I'm Carland I'mZenoWe've come to show youour technology ...AND how to use it to have yourselves FUN! Most of your computergames are destructive.BE CONSTRUCTIVE..MCAHello boysHiWant a lift?You've already got a bird!I'm off!Frightened ofa BEAR!Hello, where are you from*/#@()&%PINEHURST@&#Sounds a nice planet Happy story making Friends!Use PAUSEs and press P to play story so far, frequently 1 ;"OK. STOP TAPE. STORY SAVED."; 1 ;"OK - STOP TAPE": 1 ;"OCTAVE No."; 1 ;"NOTE No.";j; 1 ;"NOTE No. "; 1 ;"LEAVE TAPE RUNNING-LOADING": 1 ;"IN TUNE-WRITING MODE OCTAVE No.1": 1 ;"FOR THIS TUNE, CALL'pt'then ";tx; 1 ;" LEAVE TAPE RUNNING.PRESS'ENTER": 1 ;" LEAVE TAPE RUNNING-LOADING": 1 ;" ONLY ";174 1 ;" Max=99."; 1 ;" Max=99.": 1 : 1 888((((((88((((((88(((((( 1 08xP08<4xx 1 088 0<40pp0H 1 0 1 -q;" LETTERS LEFT! ": 1 -p;" MOVEMENTS LEFT! END SOON! ": 1 -n;" SEQUENCES LEFT TO END" 1 *(i$="v"): 1 )=cd*(lz=111 1 )=cd*(lz=105 1 )*9 1 (y(p-a)+b,x(p-a)+c)/64 1 (y(p-a)+b,x(p-a)+c)/128 1 (y(p),x(p))="" 1 (p(n),(c(n)+(q-qa)))/64 1 (p(n))*(p>p(n) 1 "WRITE TITLE FOR STORY,(up to 10 letters & spaces) ";n$ 1 "WISH TO ADD TO STORY? (y/n) ";r$: 1 "TUNE MEMORY FULL.Press'ENTER'";z$: 1 "REPLAY?'r', DELETE STORY?'d', SAVE ON TAPE?'t' ";r$ 1 "RE-RUN INTRODUCTION? (y/n) ";y$: 1 "PRESS ENTER, THEN '0',& RE-WRITELINE FURTHER IN. ";z$ 1 "PRESS 'ENTER' TO REPLAY ";a$: 1 "ONLY ";996 1 "ERROR-PRESS'ENTER'& RE-DO ";e$: 1 "DIAMETER - MAX ";(dia);" ";dc: 1 "DELETE SEQUENCE ";(n);"-SURE?y/n";d$: 1 "CALL CAST MEMBER - SEE LIST ";cs: 1 " PREPARE TO RECORD. CHECK TAPE CONNECTED ETC.THEN PRESS 'ENTER'";b$: 1 1983 BRIAN HOWARD BAILY. 1 1983 BRIAN H. BAILY, Pinehurst Data Studios, West Moors, 1 COLOUR OF SCREEN? (0-7) RECT.COL.(0-7 or SYM SH & 3-7) SLOPE COLR.(0-7 or SYM SH & 3-7)DRAW - WHAT COLOUR LINE? (0-7) COLOUR? (0-7) CLIMB UP or DOWN? (u/d) FIGURE FACING ...? (l,r or f) SPEED OF WAVE? (1-5) INSERT PAUSE...(secs. 1-9) BORDER COLOUR? (0-7) PRINT COLR.(0-7 or 9 = CONTRAST)SPEED? (1-5) SPEED? (1-5 or 0 = SITTING) SPEED? (1-5 or 0 = STANDING) COLOUR OF CRAFT TOP? (0-7) COLOUR OF CRAFT BOTTOM (0-7) COLOUR OF RIDER? (0-7) COLOUR OF BIKE? (0-7) HIDE CAST IN AREA? (y/n) COLOUR OF CIRCLE? (0-7) FILLED IN SOLID? (y/n) FORM INWARDS OR OUTWARDS? (i/o) FIRST FREE TUNE No.5,OK? (y/n) OK, ALTER WHICH TUNE? (1-9) PLAY p,ADD-TO a,RE-DO r,STORE s PLEASE ENTER TUNE NUMBER (1-9) PLAY TUNE NOW? (y/n) 1 Wimborne, Dorset. 1 **pds**pds**